| Filename | (eval 31)[/home/ss5/perl5/perlbrew/perls/perl-5.14.1/lib/5.14.1/SelfLoader.pm:12] |
| Statements | Executed 5 statements in 3.37ms |
| Eval Invoked At | /home/ss5/perl5/perlbrew/perls/perl-5.14.1/lib/5.14.1/SelfLoader.pm line 12 |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 2.96ms | 3.05ms | SelfLoader::BEGIN@1.6 |
| 1 | 1 | 1 | 77µs | 77µs | SelfLoader::BEGIN@1 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | 4 | 3.32ms | 3 | 3.22ms | use 5.009005; # due to new regexp features # spent 3.05ms making 1 call to SelfLoader::BEGIN@1.6
# spent 87µs making 1 call to feature::import
# spent 77µs making 1 call to SelfLoader::BEGIN@1 |
| 2 | # allow checking for valid ': attrlist' attachments | ||||
| 3 | # see also AutoSplit | ||||
| 4 | 1 | 60µs | 1 | 30µs | $AttrList = qr{ # spent 30µs making 1 call to SelfLoader::CORE:qr |
| 5 | \s* : \s* | ||||
| 6 | (?: | ||||
| 7 | # one attribute | ||||
| 8 | (?> # no backtrack | ||||
| 9 | (?! \d) \w+ | ||||
| 10 | (?<nested> \( (?: [^()]++ | (?&nested)++ )*+ \) ) ? | ||||
| 11 | ) | ||||
| 12 | (?: \s* : \s* | \s+ (?! :) ) | ||||
| 13 | )* | ||||
| 14 | }x; | ||||
| 15 | |||||
| 16 | |||||
| 17 | ; |